home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / supermon-instr. (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  6KB  |  179 lines
  1. 10 REM SUPERMON INSTR
  2. 1100 PRINT"[147]": GOSUB 10000
  3. 1200 PRINT" SIMPLE ASSEMBLER "
  4. 1300 PRINT".A[146] 2000[146] LDA[146] #$12
  5. 1310 [153]".A 2002 STAWAIT $8000,X
  6. 1320 PRINT".A 2005 (RETURN)
  7. 1330 [153]".
  8. 1340 PRINT"     IN THE ABOVE EXAMPLE THE USER
  9. 1350 [153]"STARTED ASSEMBLY AT 1000 HEX.  THE
  10. 1360 PRINT"FIRST INSTRUCTION WAS LOAD A REGISTER
  11. 1370 [153]"WITH IMMEDIATE 12 HEX.  IN THE SECOND
  12. 1380 PRINT"LINE THE USER DID NOT NEED TO TYPE THE
  13. 1390 [153]"A AND ADDRESS.  THE SIMPLE ASSEMBLER
  14. 1400 PRINT"PROMPTS WITH THE NEXT ADDRESS.  TO EXIT
  15. 1410 [153]"THE ASSEMBLER TYPE A RETURN AFTER THE
  16. 1420 PRINT"THE ADDRESS PROMPT.  SYNTAX IS THE SAME
  17. 1430 [153]"AS THE DISASSEMBLER OUTPUT.
  18. 1450 GOSUB10000
  19. 1500 PRINT"  DISASSEMBLER "
  20. 1510 PRINT".D[146] 2000[146]
  21. 1520 [153]"(SCREEN CLEARS)
  22. 1530 PRINT".,  2000 A9 12       LDA #$12
  23. 1540 [153]".,  2002 9D 00 80    STA $8000,X
  24. 1550 PRINT".,  2005 AA          TAX
  25. 1560 [153]".,  2006 AA          TAX
  26. 1570 PRINT"(FULL PAGE OF INSTRUCTIONS)
  27. 1600 [153]"     DISASSEMBLES 22 INSTRUCTIONS
  28. 1610 PRINT"STARTING AT 1000 HEX.  THE THREE BYTES
  29. 1620 [153]"FOLLOWING THE ADDRESS MAY BE MODIFIED.
  30. 1630 PRINT"USE THE CRSR KEYS TO MOVE TO AND MODIFY
  31. 1640 [153]"THE BYTES.  HIT RETURN AND THE BYTES
  32. 1650 PRINT"IN MEMORY WILL BE CHANGED.  SUPERMON[146]
  33. 1660 [153]"WILL THEN DISASSEMBLE THAT PAGE AGAIN.
  34. 1690 GOSUB10000
  35. 1700 PRINT" PRINTING DISASSEMBLER "
  36. 1710 PRINT".P[146] 2000,2040[146]
  37. 1720 [153]"2000 A9 12       LDA #$12
  38. 1730 PRINT"2002 9D 00 80    STA $8000,XY.
  39. 1740 [153]"2005 AA          TAX
  40. 1750 PRINT"   ...."
  41. 1760 PRINT"203F A2 00       LDX #$00
  42. 1770 [153]"TO ENGAGE PRINTER, SET UP BEFOREHAND:
  43. 1775 PRINT"     OPEN 4,4:CMD4
  44. 1780 [153]"ON 4.0, ACCESS THE MONITOR VIA A CALL
  45. 1785 PRINT"SYS 54386 (*NOT* A BREAK) COMMAND
  46. 1790 [141] 10000
  47. 1800 [153]" SINGLE STEP "
  48. 1810 [153]".I
  49. 1820 PRINT"     ALLOWS A MACHINE LANGUAGE PROGRAM
  50. 1830 [153]"TO BE RUN STEP BY STEP.
  51. 1840 PRINT"CALL REGISTER DISPLAY WITH .R[146] AND SET
  52. 1850 [153]"THE PC ADDRESS TO THE DESIRED FIRST
  53. 1860 PRINT"INSTRUCTION FOR SINGLE STEPPING.
  54. 1870 [153]"THE .IWAIT WILL CAUSE A SINGLE STEP TO
  55. 1880 PRINT"EXECUTE AND WILL DISASSEMBLE THE NEXT.
  56. 1890 [153]"CONTROLS:
  57. 1900 PRINT"  <[146] FOR SINGLE STEP;
  58. 1910 [153]"  RVSWAIT FOR SLOW STEP;
  59. 1920 PRINT"  SPACE[146] FOR FAST STEPPING;
  60. 1930 [153]"  STOPWAIT TO RETURN TO MONITOR."
  61. 1940 [153]"[ON BUSINESS KEYBOARDS--
  62. 1950 PRINT"      USE 8[146],_[146],6[146] AND STOP[146]].
  63. 1990 [141]10000
  64. 2000 [153]" FILL MEMORY "
  65. 2010 [153]".FWAIT 1000WAIT 1100WAIT FF
  66. 2020 PRINT"     FILLS THE MEMORY FROM 1000 HEX TO
  67. 2030 [153]"1100 HEX WITH THE BYTE FF HEX.
  68. 2090 GOSUB10000
  69. 2100 PRINT" GO RUN "
  70. 2110 PRINT".G
  71. 2120 [153]"     GO TO THE ADDRESS IN THE PC
  72. 2130 PRINT"REGISTER DISPLAY AND BEGIN RUN CODE.
  73. 2140 [153]"ALL THE REGISTERS WILL BE REPLACED
  74. 2150 PRINT"WITH THE DISPLAYED VALUES."
  75. 2160 PRINT".G[146] 1000
  76. 2170 [153]"     GO TO ADDRESS 1000 HEX AND BEGIN
  77. 2180 PRINT"RUNNING CODE.
  78. 2190 [141]10000
  79. 2200 [153]" HUNT MEMORY "
  80. 2210 [153]".HWAIT C000WAIT D000WAIT 'READ
  81. 2220 PRINT"     HUNT THRU MEMORY FROM C000 HEX TO
  82. 2230 [153]"D000 HEX FOR THE ASCII STRING READWAIT AND
  83. 2240 PRINT"PRINT THE ADDRESS WHERE IT IS FOUND.  A
  84. 2250 [153]"MAXIMUM OF 32 CHARACTERS MAY BE USED.
  85. 2260 PRINT".H[146] C000[146] D000[146] 20[146] D2[146] FF
  86. 2270 [153]"     HUNT MEMORY FROM C000 HEX TO D000
  87. 2280 PRINT"HEX FOR THE SEQUENCE OF BYTES 20 D2 FF
  88. 2290 [153]"AND PRINT THE ADDRESS.  A MAXIMUM OF 32
  89. 2300 PRINT"BYTES MAY BE USED.
  90. 2390 [141]10000
  91. 2400 [153]" LOAD "
  92. 2401 [153]".LWAIT
  93. 2402 PRINT"   LOAD ANY PROGRAM FROM CASSETTE #1.
  94. 2403 [153]".LWAIT ";[199](34);"RAM TEST";[199](34)
  95. 2404 [153]"   LOAD FROM CASSETTE #1 THE PROGRAM
  96. 2405 PRINT"NAMED RAM TEST[146].
  97. 2410 [153]".LWAIT ";[199](34);"RAM TEST";[199](34);",08WAIT
  98. 2420 PRINT" LOAD FROM DISK (DEVICE 8) THE PROGRAM
  99. 2430 [153]"NAMED RAM TESTWAIT.
  100. 2440 PRINT"THIS COMMAND LEAVES BASIC POINTERS
  101. 2450 [153]"UNCHANGED.
  102. 2490 GOSUB10000
  103. 2500 PRINT" MEMORY DISPLAY "
  104. 2510 PRINT".M[146] 0000[146] 0080
  105. 2520 [153]".:  0000 00 01 02 03 04 05 06 07
  106. 2530 PRINT".:  0008 08 09 0A 0B 0C 0D 0E 0F
  107. 2540 [153]"     DISPLAY MEMORY FROM 0000 HEX TO
  108. 2550 PRINT"0080 HEX.  THE BYTES FOLLOWING THE
  109. 2560 [153]"ADDRESS MAY BE MODIFIED BY EDITING AND
  110. 2570 PRINT"THEN TYPING A RETURN.
  111. 2590 [141]10000
  112. 2600 [153]" REGISTER DISPLAY "
  113. 2610 [153]".R
  114. 2620 PRINT"     PC  IRQ  SR AC XR YR SP
  115. 2630 [153]".;  0000 E62E 01 02 03 04 05
  116. 2640 PRINT"     DISPLAYS THE REGISTER VALUES SAVED
  117. 2650 [153]"WHEN SUPERMONWAIT WAS ENTERED.  THE VALUES
  118. 2660 PRINT"MAY BE CHANGED WITH THE EDIT FOLLOWED
  119. 2670 [153]"BY A RETURN.
  120. 2671 PRINT"  USE THIS INSTRUCTION TO SET UP THE
  121. 2672 [153]"PC VALUE BEFORE SINGLE STEPPING WITH"
  122. 2673 [153]".IWAIT
  123. 2690 GOSUB10000
  124. 2700 PRINT" SAVE"
  125. 2710 PRINT".S[146] ";CHR$(34);"PROGRAM NAME";CHR$(34);",01,0800,0C80"
  126. 2720 PRINT"     SAVE TO CASSETTE #1 MEMORY FROM
  127. 2730 [153]"0800 HEX UP TO BUT NOT INCLUDING 0C80
  128. 2740 PRINT"HEX AND NAME IT PROGRAM NAME[146].
  129. 2750 [153]".SWAIT ";[199](34);"0:PROGRAM NAME";[199](34);",08,1200,1F50"
  130. 2760 [153]"    SAVE TO DISK DRIVE #0 MEMORY FROM
  131. 2770 PRINT"1200 HEX UP TO BUT NOT INCLUDING 1F50
  132. 2780 [153]"HEX AND NAME IT PROGRAM NAMEWAIT.
  133. 2790 GOSUB10000
  134. 2800 PRINT" TRANSFER MEMORY "
  135. 2810 PRINT".T[146] 1000[146] 1100[146] 5000
  136. 2820 [153]"     TRANSFER MEMORY IN THE RANGE 1000
  137. 2830 PRINT"HEX TO 1100 HEX AND START STORING IT AT
  138. 2840 [153]"ADDRESS 5000 HEX.
  139. 2890 GOSUB10000
  140. 3200 PRINT" EXIT TO BASIC "
  141. 3210 PRINT".X
  142. 3220 [153]"     RETURN TO BASIC READY MODE.
  143. 3230 PRINT"THE STACK VALUE SAVED WHEN ENTERED WILL
  144. 3240 [153]"BE RESTORED.  CARE SHOULD BE TAKEN THAT
  145. 3250 PRINT"THIS VALUE IS THE SAME AS WHEN THE
  146. 3260 [153]"MONITOR WAS ENTERED.  A CLR IN
  147. 3270 PRINT"BASIC WILL FIX ANY STACK PROBLEMS.
  148. 3290 [141]10000
  149. 3500 [153]"ON        SUMMARY                     "
  150. 3505 [153]"COMMODORE MONITOR INSTRUCTIONS:"
  151. 3510 [153]"GWAIT GO RUN
  152. 3520 PRINT"L[146] LOAD FROM TAPE OR DISK
  153. 3530 [153]"MWAIT MEMORY DISPLAY
  154. 3540 PRINT"R[146] REGISTER DISPLAY
  155. 3550 [153]"SWAIT SAVE TO TAPE OR DISK
  156. 3560 PRINT"X[146] EXIT TO BASIC
  157. 3595 [153]"SUPERMON ADDITIONAL INSTRUCTIONS:"
  158. 3600 [153]"AWAIT SIMPLE ASSEMBLER
  159. 3610 PRINT"D[146] DISASSEMBLER
  160. 3620 [153]"FWAIT FILL MEMORY
  161. 3630 PRINT"H[146] HUNT MEMORY
  162. 3640 [153]"IWAIT SINGLE INSTRUCTION
  163. 3650 PRINT"P[146] PRINTING DISASSEMBLER
  164. 3660 [153]"TWAIT TRANSFER MEMORY
  165. 4000 GOSUB10000
  166. 4010 PRINT"[145]SUPERMON[146] WILL LOAD ITSELF INTO THE
  167. 4020 [153]"TOP OF MEMORY .. WHEREVER THAT HAPPENS
  168. 4030 PRINT"TO BE ON YOUR MACHINE.
  169. 4040 [153]"   YOU MAY THEN SAVE THE MACHINE CODE
  170. 4050 PRINT"FOR FASTER LOADING IN THE FUTURE.
  171. 4060 [153]"BE SURE TO NOTE THE SYS COMMAND WHICH
  172. 4070 PRINT"LINKS SUPERMON[146] TO THE COMMODORE
  173. 4080 [153]"MONITOR.
  174. 5000 GOSUB 10000
  175. 5010 PRINT"[147]":END
  176. 10000 PRINT:PRINT"              HIT ANY KEY               "
  177. 10011 GET IT$:IF IT$="" THEN 10011
  178. 10030 PRINT"[147]":RETURN
  179.